home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 61 / 061.d81 / great masters ii (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  179 lines
  1. 0 print"[147]":poke53281,1:sys65418
  2. 1 ifa=.thenpoke55,0:poke56,63:clr:a=1
  3. 5 ifa=1thena=2:load"routines v4",8,1
  4. 6 ifa=2thena=3:load"basic player.o",8,1
  5. 7 ifa=3thena=4:load"raster stuff.o",8,1
  6. 8 ifa=4thena=5:load"bload.o",8,1
  7. 10 fr$="":la$="":ov$=""
  8. 11 ns=7:dim na$(ns),fi$(ns)
  9. 12 sa=780:sx=781:sy=782
  10. 13 fori=0to24:poke54272+i,0:next
  11. 15 su=51206:sd=51209
  12. 16 poke1020,10:poke1021,16:poke1022,7:poke1023,32
  13. 20 gosub1000
  14. 30 gosub1500
  15. 40 gosub2000
  16. 50 gosub3000
  17. 60 gosub100
  18. 64 print"[193]re you sure you want to quit? ([217]/[206])":poke198,.
  19. 66 a=peek(203):ifa<>25anda<>39then66
  20. 68 ifa=39thengosub2020:goto50
  21. 70 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  22. 72 ifer<>63thenprint"[147]":end
  23. 74 load"hello connect",8
  24. 100 printla$""
  25. 110 fora=1to5:print"                                    "
  26. 120 next:print"[145][145][145][145][145][145]"
  27. 130 return
  28. 1000 poke53280,14:poke53281,1
  29. 1010 print"[147]";
  30. 1012 fora=1to5:
  31. 1013 print"[154]                                        ";
  32. 1014 next
  33. 1015 print"[154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  34. 1020 fora=.to14:print"[154][221]                                      [221]";:next
  35. 1030 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
  36. 1032 fora=1to2:
  37. 1033 print"[154]                                        ";
  38. 1034 next
  39. 1035 print"                                       [157][148] "
  40. 1040 fora=217to242:pokea,peek(a)or128:next
  41. 1050 print"[149][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  42. 1060 print"[221]   [204][207][193][196][211][212][193][210] [208]resents   [221] "
  43. 1070 print"[149][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
  44. 1080 print"                         "
  45. 1090 print"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  46. 1100 fora=1to5
  47. 1110 print"[144][221]                              [221] "
  48. 1120 next
  49. 1130 print"[144][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
  50. 1135 print"                                "
  51. 1140 print"[145][145][145][145][145][145][212][200][197] [199][210][197][193][212] [205][193][211][212][197][210][211] [210]evisited"
  52. 1150 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  53. 1160 print"   [194]y [196]ave [205]arquis"
  54. 1170 print"                    "
  55. 1180 print"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  56. 1190 print"[221]        [195]opyright 1989        [221] "
  57. 1191 print"[150][221]                              [221] "
  58. 1192 print"[150][221]        [211][207][198][212][196][201][211][203], [201]nc.        [221] "
  59. 1200 print"[150][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
  60. 1210 print"                                "
  61. 1220 fora=1tons:read na$(a),fi$(a):next
  62. 1230 print"[149]  [208]ress [211][208][193][195][197] to continue [154]":poke198,.
  63. 1240 ifpeek(203)<>60then1240
  64. 1250 return
  65. 1500 print"[154]     [149][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][154]"
  66. 1505 print"     [149][221]                           [221] [154]"
  67. 1510 print"     [149][221][212][200][197] [199][210][197][193][212] [205][193][211][212][197][210][211] [210]evisited[221] [154]"
  68. 1520 print"[149][221][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][221] "
  69. 1530 print"[154][149][221]       [194]y [196]ave [205]arquis     [221] [154]"
  70. 1533 print"     [149][221]                           [221] [154]    "
  71. 1535 mm=1263:pokemm,160:poke54272+mm,14
  72. 1540 print"[154]     [149][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [154]    "
  73. 1545 mm=mm+40:pokemm,160:poke54272+mm,14
  74. 1550 print"[154]                                   [154]    "
  75. 1555 mm=mm+40:pokemm,160:poke54272+mm,14
  76. 1560 print"[154]     [202][213][203][197][194][207][216] player by [205]ike [205]aynard   "
  77. 1565 mm=mm+40:pokemm,160:poke54272+mm,14
  78. 1570 print"[154] [146][129][146][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  79. 1575 mm=mm+40:pokemm,160
  80. 1580 fora=1to7
  81. 1590 print"[154] [129][146][221]                                    [221]"
  82. 1595 mm=mm+40:pokemm,160:poke54272+mm,6
  83. 1597 ifa=4thenprint"[145][144]--->"tab(34)"<---"
  84. 1600 next
  85. 1610 print"[154] [129][146][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  86. 1615 mm=mm+40:pokemm,160:poke54272+mm,6
  87. 1620 fora=1to5
  88. 1625 mm=mm+40:pokemm,160:poke54272+mm,6
  89. 1630 print"[154] [129][146][221]                                    [221]"
  90. 1640 next
  91. 1650 print"[154] [146][129][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  92. 1655 mm=mm+40:pokemm,160:poke54272+mm,6
  93. 1660 print"[154]                                       "
  94. 1665 mm=mm+40:pokemm,160:poke54272+mm,6
  95. 1670 fora=217to242:pokea,peek(a)or128:next
  96. 1680 return
  97. 2000 printfr$;
  98. 2010 fora=1to7:printov$"[156]"na$(a):next
  99. 2015 se=4
  100. 2016 ls$=""
  101. 2020 gosub100:printla$"[213]se the [195][210][211][210] keys to scroll the"
  102. 2025 print"music up and down."
  103. 2030 print"[208]ress [[210][197][212][213][210][206]] to hear the"
  104. 2040 print"selected music."
  105. 2050 print"[198]1 - [208]lay all        [198]7 - [209]uit"
  106. 2060 return
  107. 3000 poke198,.:ab=.:pa=.
  108. 3005 b=peek(653):a=peek(203):ifa<>7anda<>2anda<>4anda<>3anda<>1then3000
  109. 3010 if((b=.)and(a=2))or((b)and(a=7))then gosub3100:goto3000
  110. 3020 if((b=.)and(a=7))or((b)and(a=2))then gosub3200:goto3000
  111. 3030 if(a=1)then4000
  112. 3040 if(a=4)then4100
  113. 3050 if(a=3)then return
  114. 3060 goto3000
  115. 3100 se=se-1:ifse=.thense=ns
  116. 3110 tp=se-3:iftp<1thentp=ns+tp
  117. 3120 syssd:poke648,216:syssd:poke648,4:printfr$ov$"[156]"na$(tp)
  118. 3130 return
  119. 3200 se=se+1:ifse=ns+1thense=1
  120. 3210 bo=se+3:ifbo>nsthenbo=bo-ns
  121. 3220 syssu:poke648,216:syssu:poke648,4:printla$ov$"[156]"na$(bo)
  122. 3230 return
  123. 4000 pl=se
  124. 4010 gosub6000
  125. 4040 goto3000
  126. 4097 :
  127. 4098 :
  128. 4100 mm=se:pa=-1:forzz=setons
  129. 4110 pl=zz
  130. 4120 gosub6000
  131. 4150 gosub3200
  132. 4155 if(ab)thengosub2020:goto3000
  133. 4160 next:if(mm=1)or(ab)thengosub2020:goto3000
  134. 4170 forzz=1tomm-1
  135. 4180 pl=zz
  136. 4190 gosub6000
  137. 4210 gosub6500
  138. 4220 gosub3200
  139. 4225 if(ab)thengosub2020:goto3000
  140. 4230 next:gosub2020:goto3000
  141. 6000 ok=1:he=.:ifls$=fi$(pl)then6540
  142. 6001 ls$=fi$(pl)
  143. 6003 gosub100:li$="[204]oading "+na$(pl):li=len(li$):ta=20-li/2
  144. 6005 print""tab(ta)li$
  145. 6010 sys828,40960,"m."+fi$(pl):sys828,53096,"w."+fi$(pl)
  146. 6500 ad=1:open3,8,3,"c."+fi$(pl):fora=1to5:cr$(a)="":next
  147. 6510 fori=.to1:get#3,a$:i=st:ifa$=chr$(13)thenad=ad+1:goto6530
  148. 6520 cr$(ad)=cr$(ad)+a$
  149. 6530 next:close3
  150. 6540 if(ok)thensys52222,40960:ok=.
  151. 6550 poke198,.:gosub100:print"";:fora=1to5:printcr$(a):next
  152.